home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Prof page II type.adf / Install / DoOneFloppy < prev    next >
AmigaDOS Script File  |  1990-08-10  |  2KB  |  66 lines
  1. .KEY dest/A
  2. .BRA {
  3. .KET }
  4.  
  5. ; Generate one floppy disk.  Loops by calling itself recursively
  6. ; (to get around a bug in Execute scripts).
  7.  
  8. ; Default (success) termination message.
  9. echo >GD_TempDir:Message " Installation complete."
  10.  
  11. echo "*Nm~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
  12. instutil ask -dy " Do you want to create a(nother) diskette [Y/N]? Y"
  13. if warn
  14.     skip DFQuit
  15. endif
  16.  
  17. assign GD_Dest:         ; So we can test for its existence later
  18.  
  19. echo noline "*N Are you adding new fonts to an existing *E[;1mExtraFonts*E[m diskette [Y/N]? N"
  20. instutil ask -dn ""     ; Echo kludge since ask doesn't understand "*E"
  21. if warn
  22.  
  23.     echo "*N A new *E[;1mExtraFonts*E[m diskette will be created.*N"
  24.     execute GD_SourceDisk:Install/CreateDisk "{dest}"
  25.  
  26. else
  27.  
  28.     echo "*N Fonts will be added to your *E[;1mExtraFonts*E[m diskette,"
  29.     echo " and utility files will be updated if necessary.*N"
  30.     execute GD_SourceDisk:Install/DiskMount "the *E[;1mExtraFonts*E[m disk to be updated" ExtraFonts: GD_Dest: "{dest}"
  31.  
  32.     instutil exists GD_Dest:
  33.     if not warn
  34.         execute GD_SourceDisk:Install/UpdateUtilities
  35.         if not $GDIRC eq "ok"    ; If we choked ...
  36.             assign GD_Dest:             ; ... don't proceed any further
  37.         endif
  38.     endif
  39. endif
  40.  
  41. ; Don't try to install if we don't have a destination
  42. ; (ie. if CreateDisk or DiskMount failed).
  43. instutil exists GD_Dest:
  44. if warn
  45.     echo >GD_TempDir:Message "*E[;33m Installation aborted.*E[m"
  46. else
  47.     echo "*N~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  48.  
  49.     ; Initialize free-space counter.
  50.     instutil >GD_TempDir:free freespace GD_Dest:
  51.     instutil -eGDIFREE join GD_TempDir:free
  52.  
  53.     execute GD_SourceDisk:Install/CopyAllFonts
  54. endif
  55.  
  56. lab DFDiskDone
  57.  
  58. echo "*N~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
  59. instutil join GD_TempDir:Message
  60.  
  61. ; Go do another disk.  Have to do it recursively -- "skip back" doesn't
  62. ; work with sub-Execute's.
  63. execute GD_SourceDisk:Install/DoOneFloppy "{dest}"
  64.  
  65. lab DFQuit
  66.